open(BUFF,"GenoTypeTable_370Q.txt");
open(WRBUFF,">GenoTypeTable_370Q_new.txt");
$line = <BUFF>;
chomp($line);
#print WRBUFF $line."\n";
while(<BUFF>)
{
	chomp($_);
	if($_ !~ m/--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t--\t/)
	{
		print WRBUFF $_."\n";
		@array = split("\t",$_);
		$hash{$array[0]} =1;
	}
}
open(BUFF,"GenotypeTable.txt");
open(WRBUFF,">GenotypeTable_new.txt");
$line = <BUFF>;
chomp($line);
#print WRBUFF $line."\n";
while(<BUFF>)
{
        chomp($_);
	@array = split("\t",$_);
	if(exists($hash{$array[0]}))
	{
		print WRBUFF $_."\n";
	}
}
close(WRBUFF);
close(BUFF);
